home *** CD-ROM | disk | FTP | other *** search
/ Grand Slam 3 / Grand Slam 3.iso / 029 / kos_i7.arj / SOURCE.ARJ / CITY.TXT next >
Text File  |  1995-08-04  |  939b  |  60 lines
  1. Area( 5   %1  %2 100 )
  2.     Call( :SUR )
  3.     IfVarRange(  :SUITE1  028c 0002 0004  )
  4.     Jump( :L064 )
  5.     :SUITE1
  6.     PerspectiveCall( :L022 )
  7.     ShadowCall( :L024 )
  8.     Jump( :L064 )
  9. :SUR
  10.     RefPoint( 7  :RETS .8 %1 %2 v1= 10000 )
  11.     Points( 1
  12.     0 0 640
  13.     432 0 432
  14.     640 0 0
  15.     432 0 -432
  16.     0 0 -640
  17.     -432 0 -432
  18.     -640 0 0
  19.     -432 0 432
  20.     )
  21. SensePt( :RETS 1 3 5 7 )
  22. Bitmap( burb.r8 0 0 0 0 )
  23.  
  24. StartSurface
  25. MoveToPt( 1 )
  26. DrawToPt( 2 )
  27. DrawToPt( 3 )
  28. DrawToPt( 4 )
  29. DrawToPt( 5 )
  30. DrawToPt( 6 )
  31. DrawToPt( 7 )
  32. DrawToPt( 8 )
  33. EndSurface
  34. :RETS
  35. Return
  36.  
  37. :L022
  38.     Perspective
  39. :L024
  40.     RefPoint( 7  :L062 %3  %1 %2 v1= 9000 )
  41.     Points( 1
  42.     0 0 640
  43.     432 0 432
  44.     640 0 0
  45.     432 0 -432
  46.     0 0 -640
  47.     -432 0 -432
  48.     -640 0 0
  49.     -432 0 432
  50.     )
  51.     SensePt( :L062 2 4 6 8 )
  52.     Smoothing( 1 )
  53.     Dwx( 007F )
  54.     Smoothing( 0 )
  55. :L062
  56.     Return
  57. :L064
  58. EndA
  59.  
  60.